From: Juri Linkov <juri@linkov.net>
Date: Sat, 2 Mar 2024 17:22:30 +0000 (+0200)
Subject: * lisp/replace.el (perform-replace): Accept default bindings in lookup-key.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2374
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=ebab7276139888266ae0f27bd3b2874e2ed8c077;p=emacs.git

* lisp/replace.el (perform-replace): Accept default bindings in lookup-key.

Set ACCEPT-DEFAULT arg of lookup-key to t (bug#69342).
This will allow the users to ignore unbound keys with
‘(define-key query-replace-map [t] 'ignore)’.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index fa460a16063..49e7c85c487 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2916,7 +2916,7 @@ characters."
 
     ;; If last typed key in previous call of multi-buffer perform-replace
     ;; was `automatic-all', don't ask more questions in next files
-    (when (eq (lookup-key map (vector last-input-event)) 'automatic-all)
+    (when (eq (lookup-key map (vector last-input-event) t) 'automatic-all)
       (setq query-flag nil multi-buffer t))
 
     (cond
@@ -3100,7 +3100,7 @@ characters."
 		  ;; read-event that clobbers the match data.
 		  (set-match-data real-match-data)
 		  (setq key (vector key))
-		  (setq def (lookup-key map key))
+		  (setq def (lookup-key map key t))
 		  ;; Restore the match data while we process the command.
 		  (cond ((eq def 'help)
 			 (let ((display-buffer-overriding-action